home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / ada / c01oop.zip / ADAWKBK / SOL2-6.ADA < prev    next >
Text File  |  1992-08-25  |  650b  |  30 lines

  1. -- Problem 2.6
  2. -- by Rick Conn
  3. with Text_IO;
  4. procedure Main is
  5.  
  6.   type FARRAY is array (POSITIVE range <>) of FLOAT;
  7.  
  8.   FA1 : FARRAY(1..5) := (2.2, 3.3, 4.4, 5.5, 7.2);
  9.   FA2 : constant FARRAY := (12.2, 10.2, 1.0, 5.2);
  10.   FA3 : constant FARRAY := (1.1, 2.2);
  11.  
  12.   package Float_IO is new Text_IO.Float_IO (FLOAT);
  13.  
  14.   procedure Display_FARRAY (Item : in FARRAY) is
  15.   begin
  16.     for I in Item'RANGE loop
  17.       Text_IO.Put ("  ");
  18.       Float_IO.Put (Item(I), 2, 1, 0);
  19.     end loop;
  20.     Text_IO.New_Line;
  21.   end Display_FARRAY;
  22.  
  23. begin -- Main
  24.  
  25.   Display_FARRAY (FA1);
  26.   Display_FARRAY (FA2);
  27.   Display_FARRAY (FA3);
  28.  
  29. end Main;
  30.